← Index
NYTProf Performance Profile   
For ../prof.pl
  Run on Thu Dec 15 15:23:56 2022
Reported on Thu Dec 15 15:27:03 2022

Filename(eval 322)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
StatementsExecuted 4932 statements in 29.8ms
Eval Invoked At/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
2461213.32ms3.32msJSON::Schema::Modern::::strict JSON::Schema::Modern::strict
1116µs16µsJSON::Schema::Modern::::BEGIN@5.177 JSON::Schema::Modern::BEGIN@5.177
1114µs4µsMethod::Generate::Accessor::_Generated::::BEGIN@10.178Method::Generate::Accessor::_Generated::BEGIN@10.178
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1{
220s my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
310s my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
4 package JSON::Schema::Modern;
5233µs226µs
# spent 16µs (6+10) within JSON::Schema::Modern::BEGIN@5.177 which was called: # once (6µs+10µs) by Sub::Quote::_clean_eval at line 5
no warnings 'closure';
# spent 16µs making 1 call to JSON::Schema::Modern::BEGIN@5.177 # spent 10µs making 1 call to warnings::unimport
6
# spent 3.32ms within JSON::Schema::Modern::strict which was called 2461 times, avg 1µs/call: # 2460 times (3.32ms+0s) by JSON::Schema::Modern::_traverse_subschema at line 506 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern.pm, avg 1µs/call # once (1µs+0s) by JSON::Schema::Modern::evaluate at line 357 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern.pm
sub strict {
7 ($_QUOTED,$_UNQUOTED) if 0;
8# BEGIN quote_sub PRELUDE
9package Method::Generate::Accessor::_Generated;
10
# spent 4µs within Method::Generate::Accessor::_Generated::BEGIN@10.178 which was called: # once (4µs+0s) by Sub::Quote::_clean_eval at line 15
BEGIN {
1111µs $^H = 1762;
1210s ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
1313µs %^H = (
14 );
15130µs14µs}
16# END quote_sub PRELUDE
172461636µs Carp::croak("strict is a read-only accessor") if @_ > 1;
18246129.1ms$_[0]->{"strict"} }
1910s $$_UNQUOTED = \&strict;
20}
2113µs1;
22
23;